#Use Service Proxy Class to load wsdl dynamically
use WebService::ServiceProxy;

#Specify wsdl file
my $wsdl = "http://www.redcoal.com/xmlserver/soapserver.dll/wsdl/ISoapServer";

#Load WSDL File
my $PerlPackageDatabase = WebService::ServiceProxy->new($wsdl);

my $OutValue="";

#call SendTextSMS Method
print  $PerlPackageDatabase->SendTextSMS("94765-49251-11951-66295","ABC123","+61413328449","Message","MyEmail","myName",0,$OutValue);

#If Successfull OutValue holds MessageID


# Check How many Credits left

my $CreditsLeft=-1;

print 
$PerlPackageDatabase->GetCreditsLeft("94765-49251-11951-66295","ABC123",$CreditsLeft)